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CRYSTALS generates an endless variety of colorful symmetrical designs on your 
Atari computer. The displays are constructed by randanly generating four 
complex waveforms, thus insuring unique designs each time. The program plots 
over 6000 points in graphics mode 8 (Hi-rez) per display, to form a symmetrical 
multi-color design; playing "music" as it goes along. 

USEFUL VARIABLES (See Program Code) 

RA - Determines the maximum "spin" of the summed sinwaves. 

F1-F8 - Individual "spin" characteristics (frequency). 

A1X-A2Y - Maximum screen X & Y values (amplitude). 

Z1-Z8 - Initialized to to random start point degrees. 

X - (Lines 310-340) determines point differential along the individual sinwaves. 
ST - (Line 1050) number of points to be plotted between end points E(P) and Q(P). 
BASIC ALGORITHM 


Determine a point (Tl) along the sinwave described as sin((ZN+X)*FN) where ZN is 
a constant between 0-360°; X represents a 0.6° step and FN is the frequency. 

Repeat above step generating a "T2". 

Multiply Tl and T2 (3UM-1.0); add quadrant separation (in this case 0.4); 
normalize to less than or equal to 1 by dividing by (1.4) and multiply by the 
maximum screen window size; and perform an absolute function to avoid quadrant 
overlap. NOTE: The multiplication of Tl and T2 generates a complex waveform. 

These steps are repeated 4 times, generating 2 X-values and 2 Y-values. 

The program then computes a line (standard MX+B) between the two end points; 
calculates the number of points along this ray (# of points determined by the 
division constant at Line 1050) and plots symmetrically about the screen center 
axis. 

In Lines 4000-4090 the X & Y values are reversed and plotted as a scroll in each 
corner of the display. 


* Program Code (C) 1981 by Douglas McFarland, Fairport, NY, 



V 


1 GOSUB 9080 

2 DEG 

3 POKE- 54018/52 
5 RA=12.I-Rh/2 

28 DIM Q< 88 >/ W- 88 >/ EC 80>/ R( 88 ) 

38 POKE 77.- 8 

14b Hl.> ; ,=158 • 7 c. ;: .15~J • A1 7=95 ; h2Y'=95 

144 Fl=PAYRNO< 1 :>-I : F2=RA£EMD( 1 >-I 

145 F5=Rk'KRH0 ! ' 1)-] .F6=RA$RND( 1 )-I 
147 F7~Rh' : ?:RK ! D( 1)-I : F8=RA:j:RNQ( 1 )-I 
348 F3=RA4RN0< 1 )-I : F4~f: hYRHOC 1 )-I 
378 GOSUB 383 

180 TINT=8 

188 GRAPHICS 24 

189 LUM=0 

198 SETCOLOR L TINT,15 : SET COLOR 2,TINT,L 
LI-1 


200 

SETCOLOR 4/TINT/LUH 



285 

COLOR 1 





286 

LUoUB 4080 





238 

GOSuB 1000 





270 

GOTO 30 

DCM 





364 

r.tsf I 

P=8 





305 

21-INT <361$RHD( 

1) 

>=22= INK 

i 36,1: 

xRi-iX 1 > 

/ 

386 

\ 

23= INK 361YRNDT 

1) 

> = 24=INK 

361: 

YRHDC1 > 

/ 

38? 

U=3S1XRND(1) 





388 

25=INT (361SRNTX 

1) 

>.26= INK 

361: 

;.:RHD( 1) 

, 

389 

27=I NT( 361 :£RND\ 

1) 

>.28= INK 

361: 

mo< i > 

316 

FOR X=U TO 0+4? 

' STEP 8.6 



315 

T1 =S I N( (21+X )t r 1 >. 

T2=SIH(( 

25+:- 

■OXF5> 

328 

QCP >=ABS< ( hjXY< 

!i;i 

; : i 2+8.4 >■••■ 

i 4 

) T 

321 

Ti=SIN((22+X >*r 


!2=SlNU 

26+> 

MFC) 

322 

W( P >=ABS< (A1 Y£< 

Tl:i 

•T2+8.4X- 

1.4. 

;> ’*« 

326 

Tl=SIMu23+X>lF 

3) • 

T2=SIN(< 


a y&F? > 

330 

E( p )=A8S< < A2XT:.:' 

in 

;T2+8.4 >■■■" 

id; 

l ‘t 

331 

T!=SIH«Z4+X>*F 

4 ): 

T2=SM( 

Z8i> 

\ )tFo ) 

332 

R( P >=A8S( (A2Y*C 

m 

• i 2+8.4 >•-■' 

1.4: 

V j 


338 IP P=74 THEN SETCOLOR 1,TINT/LUM=COL 
DR 1 

343 r=P+l : NEXT X 
3 do Return 


1830 REri CALCULATE LINE 

1818 K=P-1 

102-0 FOR F-l TO K 

1830 fK w< P >-R< P ) 0< p )-E( P > > 

1040 B=H< p )—M-CGK’ P) 

1 050 ST=< E( P >-Q< P > >.-"20 

1065 It- GKP )=E(P> THEN 0( P)=Q( P)+1 : CO 
1030 

1066 FR=INK 155$RMD< 1 > >+100 

106,-- SOUND 0/FR/10/2 : SOJHU 1/pR+l/lO/l 
1870 GOSUB 1509 
1088 NEXT P 

1085 FOR XX=1 TO 480.NEXT XX 

1086 SOUND 0/6,0/0=SOIM) 1,0,0,0 
1090 RETURN 

1589 FOR X=C>< P) TO E<p) STEP ST 

1518 Y=IT£\+8 

1528 PLOT 168+X > y6+V 

1530 PLOT 160+X/96-Y 

1548 F’lOT 168- X/36-Y 

17.58 PLOT 16U-X/96+Y 

1568 NEXT X 

1578 RETURN 

4033 M=P 

4010 K-P-l 

4820 FOR P=1 TO K 

4038 PLOT E( F'>. MG P > 

4835 F’LOT Q( P>, R( p) 

4840 PLOT E(P), 191-TKP) 

4845 PLO i 0( P > ,.191 -R( p) 

4058 PLOT 319-E< P), 191 -M< P > 

4055 PLOT 33 9-QCP>,191-R(P > 

4069 PLOT 319-E(P),1-KP> 

4865 PLOT 319-GKF ),R(P> 

4870 NEXT P 
4880 F-H 
4090 RtlURN 

9003 DIM CT>( 1 UCRT—CHRT(155 T 
9010 GPArHiCS 2 : UF‘hN #3,4 jU, "K : 11 : POKE 

2,1 

9020 setColor toto10 : setcclor 2,0,0 
9830 PRINT #6, CR$;CRtsCF$ jCR$ i 
307.0 PRINT #6.;" CRYSTALS" 

9068 PRINT #6.;"“ 

9870 PRINT #6;" by cbnacoiifo 5 " 

9380 PRINT 11 Please Wait .“ 

9038 PORE 752.. 8 •• Rt i URN 




